home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Power Programmierung
/
Power-Programmierung (Tewi)(1994).iso
/
magazine
/
ins_msb
/
9203
/
chdrive.bas
next >
Wrap
BASIC Source File
|
1992-01-22
|
400b
|
18 lines
' ChDrive.Bas - Support module to contain the ChDrive subprogram.
' $INCLUDE: 'CHDRIVE.BI'
' $INCLUDE: 'QB.BI'
SUB ChDrive (DriveSpec$)
' ChDrive - Changes the currently logged drive to that specified
' by the first character of the DriveSpec$ argument.
DIM Regs AS RegType
Regs.AX = &H0E00
Regs.DX = ASC(DriveSpec$) - &H41
Interrupt &H21, Regs, Regs
END SUB